object Form4: TForm4 Left = 251 Top = 141 HelpContext = 41003 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderStyle = bsSingle Caption = 'Fast-Action Hold '#39'Em' ClientHeight = 354 ClientWidth = 632 Color = clGreen Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnCreate = FormCreate OnMouseUp = FormMouseUp OnPaint = FormPaint OnResize = FormResize PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 330 Width = 632 Height = 24 Align = alBottom BevelOuter = bvLowered TabOrder = 0 object Panel4: TPanel Left = 0 Top = 1 Width = 198 Height = 24 BevelOuter = bvLowered Caption = 'Fast-Action Hold '#39'Em' TabOrder = 0 end object Panel2: TPanel Left = 200 Top = 1 Width = 144 Height = 24 BevelOuter = bvLowered Caption = 'Credits:' TabOrder = 1 end object Panel3: TPanel Left = 346 Top = 1 Width = 144 Height = 24 BevelOuter = bvLowered Caption = 'Borrowed:' TabOrder = 2 end object Panel5: TPanel Left = 490 Top = 1 Width = 142 Height = 24 BevelOuter = bvLowered Caption = 'Current Bet:' TabOrder = 3 end end object BitBtn1: TBitBtn Left = 384 Top = 252 Width = 97 Height = 65 HelpContext = 41003 Caption = '&Ante Up' Default = True TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 96010000424D9601000000000000760000002800000018000000180000000100 04000000000020010000CE0E0000C40E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222000 00222222222222222200CCCCFFFF0222222222222FFFCCCCFFFFFC0222222220 FFFFCCCCFFFFCCC02222222CFFFFFCCCFFFFCCCC022222CCCFFFFC4444FFCCCF F02220CCCCFF44444444CCFFFF222CCCCCC4444444444FFFFF020FCCCC444444 44444FFFFCC20FFFCC444FF444F444CCCCC2FFFFF444F4FF44F444CCCCC0FFFF F4444FF444F444CCCCC0CCCCC444FFF444F444FFFFF0CCCCC444F4F44FF444FF FFF0CCCCCC444FF444F444FFFFF00CCFFF44444444444CCCFFF20FFFFFF44444 4444CCCCCC022FFFFFCCC444444FFCCCCC0220FFFCCCCFFFCCCFFFCCCC22220F CCCCCFFFCCCFFFFCC2222220CCCCFFFFCCCFFFFF022222220CCCFFFFCCCCFFF2 2222222220CFFFFFCCCCF0222222222222200FFFCC0022222222} Layout = blGlyphTop end object BitBtn3: TBitBtn Left = 496 Top = 252 Width = 97 Height = 65 HelpContext = 41003 Cancel = True Caption = 'E&xit' ModalResult = 2 TabOrder = 2 Glyph.Data = { 4E010000424D4E01000000000000760000002800000011000000120000000100 040000000000D8000000CE0E0000C40E00000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 6666600000006668866666666666600000006691186666698666600000006691 1186669118666000000066911118691111866000000066691111811111866000 0000666691111111186660000000666669111111866660000000666666111118 6666600000006666669111186666600000006666691111186666600000006666 9111811186666000000066691118691118666000000066691186669111866000 0000666691666669111660000000666666666666919660000000666666666666 666660000000666666666666666660000000} Layout = blGlyphTop end object MainMenu1: TMainMenu Left = 598 Top = 4 object File1: TMenuItem Caption = '&File' ShortCut = 0 object New1: TMenuItem Caption = '&New' ShortCut = 0 OnClick = New1Click end object N3: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = Exit1Click end end object Borrow1: TMenuItem Caption = '&Borrow' ShortCut = 0 OnClick = Borrow1Click end object Payoffs1: TMenuItem Caption = '&Payoffs' ShortCut = 0 OnClick = Payoffs1Click end object Register1: TMenuItem Caption = '&Register' ShortCut = 0 OnClick = Register1Click end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Aboutthe5CardPokerCollection1: TMenuItem Caption = '&About the 5-Card Poker Collection' ShortCut = 0 OnClick = Aboutthe5CardPokerCollection1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object N5CardPokerCollectionManual1: TMenuItem Caption = '5-Card Poker Collection &Manual' ShortCut = 0 OnClick = N5CardPokerCollectionManual1Click end object N2: TMenuItem Caption = '-' ShortCut = 0 end object FreeCD1: TMenuItem Caption = '&Free CD' ShortCut = 0 OnClick = FreeCD1Click end object UltisoftHomepage1: TMenuItem Caption = 'Ultisoft &Homepage' ShortCut = 0 OnClick = UltisoftHomepage1Click end object UltisoftProductCatalog1: TMenuItem Caption = '&Ultisoft Product Catalog' ShortCut = 0 OnClick = UltisoftProductCatalog1Click end end end end